home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / pascal / stadll.exe / TESTSTAT.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1993-06-18  |  452 b   |  23 lines
  1. {
  2.    This program simply tests the "task_stat" function in the "statdll" DLL
  3.    and interprets the result.
  4. }
  5. PROGRAM teststao;
  6.  
  7. USES
  8.   wintypes, wincrt;
  9.  
  10. FUNCTION Task_Stat(myhwnd : hwnd) : integer; FAR; EXTERNAL 'statdll';
  11.  
  12. VAR
  13.   i : integer;
  14.  
  15. BEGIN   {teststao}
  16.   i := Task_Stat(0);
  17.   writeln('Task_Stat = ', i);
  18.   writeln;
  19.   IF boolean(i) THEN
  20.     writeln('Completed')
  21.   ELSE
  22.     writeln('*** Cancelled ***');
  23. END.   {teststao}